home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / uniforth.zip / VED.FTH < prev    next >
Text File  |  1988-04-13  |  300b  |  6 lines
  1. : 7CHAR  ( DATA--ADDR,COUNT)  <#  # # #  58 HOLD   # # # #   #>   ;
  2. : 4CHAR  ( DATA--ADDR,COUNT)  <#  # # # #  #> ;
  3. : .7BIN   ( DATA--)  US>D BINARY  7CHAR TYPE DECIMAL ;
  4. : .4BIN   ( DATA--)  US>D BINARY  4CHAR TYPE DECIMAL ;
  5. : .TF  ( F--)    IF   ."  TRUE "   ELSE      ."  FALSE "    THEN  ;
  6.